home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Messenger.xpl < prev    next >
Text File  |  2004-03-01  |  2KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Network\Security\General"
  5. "UIPATH 2"="System\Security\Services"
  6. "UIPATH 3"="Internet\Messenger Service"
  7. "UIPATH 4"="Virtual Paranoia\Security related"
  8. "NAME"="Messenger Service"
  9. "VERSION"="1.05"
  10. "OSVERSION"="0101011"
  11. "LANGUAGE"="VBScript"
  12. "TEXT 1"="Enable Messenger Service"
  13. "DESCRIPTION 1"="The Windows Messenger Service (not to be confused with the MSN Messenger Instant Messaging program) is a service used by Network administrators to inform users about important system events."
  14. "DESCRIPTION 2"="It does not allow any chat, it simply displays a window with the text written by the Administrator and an OK Button."
  15. "DESCRIPTION 3"="While this is perfect for corporate networks, it can be a problem on a home PC connected to the internet."
  16. "DESCRIPTION 4"="Some spamers have learned how to misuse this program and thus are bombing users with spam messages using this service."
  17. "DESCRIPTION 5"="If you are a home user, you can easily disable this service here and prevent these spam pop-ups from appearing."
  18. "DESCRIPTION 6"="For more information about this problem, check here: http://www.theregister.co.uk/content/55/29121.html"
  19. "AUTHOR"="Xteq Systems"
  20. "CONTACTURL"="http://www.xteq.com"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"="Check also: http://www.lbl.gov/ITSD/CIS/compnews/2002/October/09-popup-spam.html"
  23.  
  24.  
  25.  
  26. sP1="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger\Start"
  27.  
  28. Sub Plugin_Initialize 
  29.  i=RegReadValue(sP1)
  30.  if i<>4 then SetUIElement 1,true
  31.  
  32. End Sub
  33.  
  34.  
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  Call ae(b,sP1)
  39.  
  40.  Call Restart()
  41. End Sub
  42.  
  43.  
  44. Sub ae(val,Path)
  45.  if val=true then
  46.     Call RegWriteValue(path,2,2)
  47.  else
  48.     Call RegWriteValue(path,4,2)
  49.  end if
  50. end Sub
  51.  
  52.  
  53.  
  54.  
  55. Sub Plugin_Terminate 
  56. End Sub
  57.  
  58.  
  59.  
  60.